var A: TMtxInt; V1,V2: TVecInt; begin CreateIt(A); CreateIt(V1,V2); try V1.SetIt([1,2,3]); V2.SetIt([4,5,6]); A.Kron(V1,V2); // A becomes: // [4 5 6] // [8 10 12] // [12 15 18] finally FreeIt(A); FreeIt(V1,V2); end; end;